home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imageengineerv3.0 / install < prev    next >
Text File  |  1986-03-05  |  3KB  |  132 lines
  1. ; Install Image Engineer V3.0
  2. ; © 1995-1996 Simon Edwards
  3. ; This script installs Image Engineer.  Checks for need libraries, OS version
  4. ; CPU, and adds an assign to user-startup.
  5.  
  6. (transcript "Installing Image Engineer...")
  7.  
  8. (set #intromsg (cat    "\nThis installs Image Engineer V3.0 on your\n"
  9.             "hard disk and checks your Kickstart, CPU, and\n"
  10.             "installed libraries.\n"))
  11.  
  12. (message #intromsg)
  13.  
  14.     ;Check to see what version of the OS we're running on.
  15. (if (< (/ (getversion) 65536) 37)
  16.     (
  17.     (if (<> 1 (askbool (help @askbool-help) (prompt (cat "You must be using Kickstart 2.04+ to run Image Engineer.\n"
  18.                     "\n"
  19.                     "Do you wish to continue anyway?\n"))))
  20.  
  21.         (
  22.         (abort "Aborting as the Kickstart is not sufficient.")
  23.         )
  24.     )
  25.     )
  26. )
  27.  
  28.  
  29.     ; Check to see what CPU we're running on.
  30. (if (>= 68020 (database "cpu"))
  31.     (
  32.     (if (<> 1 (askbool (help @askbool-help) (prompt (cat
  33.                     "\nYou need a 68020 CPU or better to run Image Engineer.\n"
  34.                     "\nDo you wish to continue anyway?\n"))))
  35.         (
  36.         (abort "Aborting as the CPU is not sufficient.")
  37.         )
  38.     )
  39.     )
  40. )
  41.  
  42.  
  43.     ;Check to see if superview.library is installed.
  44. (if (exists "LIBS:superview.library")
  45.     (
  46.     (set vernum (getversion "LIBS:superview.library"))
  47.     (if (< vernum (+ (* 12 65536) 9)) 
  48.         (
  49.         (set ver (/ vernum 65536))
  50.         (set rev (- vernum (* ver 65536)))
  51.         (message (cat (
  52.             "\nYou have V%ld.%ld of superview.library,\n" ver rev)
  53.             "although Image Engineer will run with this version\n"
  54.             "I recommend that you get V12.9 from Aminet or your\n"
  55.             "local PD library. (See docs)."))
  56.         )
  57.     )
  58.     )
  59.  
  60.     (
  61.     (if (<> 1 (askbool (help @askbool-help) (prompt     
  62.         (cat    "\nYou don't seem to have superview.library installed\n"
  63.             "on your system.  Image Engineer needs at least V7.0\n"
  64.             "of superview.library in order to run.\n\n"
  65.             "Do you wish to continue anyway?\n"))))
  66.             (
  67.  
  68.             (abort (cat
  69.                 "Aborting...\n\n"
  70.                 "The latest version of superview.library\n"
  71.                 "should be available from an Aminet site\n"
  72.                 "or PD library near you.\n"))
  73.             )
  74.  
  75.     )
  76.     )
  77. )
  78.  
  79.     ;Check for BGUI.library V41.1
  80. (if (exists "LIBS:BGUI.library")
  81.     (
  82.  
  83.     (set vernum (getversion "LIBS:BGUI.library"))
  84.  
  85.     (if (< vernum (+ (* 41 65536) 1)) 
  86.         (
  87.         (copyfiles (prompt "Copying new BGUI.library") (help @copyfiles-help) 
  88.         (source (tackon (pathonly @icon) "Libs/bgui.library")) (dest "LIBS:") (files))
  89.         ))
  90.     )
  91.  
  92.     (
  93.     (copyfiles (prompt "Copying BGUI.library") (help @copyfiles-help) 
  94.         (source (tackon (pathonly @icon) "Libs/bgui.library")) (dest "LIBS:") (files))
  95.     )
  96. )
  97.  
  98.     ;Get the destination directory from the user
  99. (set wheredir
  100.     (askdir
  101.     (prompt "Select a directory where you would like to install "
  102.         "Image Engineer. (A drawer will be created there)")
  103.     (help @askdir-help)
  104.     (default @default-dest)
  105.     )
  106. )
  107.  
  108.     ;Create the directory for Image Engineer
  109. (set wheredir (tackon wheredir "ImageEngineerV3.0"))
  110. (makedir wheredir (infos))
  111.  
  112.  
  113. (working "Installing Image Engineer...")
  114.     ;Copy all of the files over to the destination
  115. (copyfiles
  116.     (prompt "")
  117.     (help @copyfiles-help)
  118.     (pattern "~(Install|Install.info|Libs|Libs.info)")
  119.     (infos)
  120.     (source (pathonly @icon))
  121.     (dest wheredir)
  122. )
  123.  
  124.     ;Add an assign to user startup
  125. (startup "IMAGEENGINEER"
  126.     (prompt "I need to add an assign to your\n\"s:user-startup\" file.")
  127.     (help @startup-help)
  128.     (command ("assign IE: \"%s\"\n" wheredir))
  129. )
  130.  
  131. (exit "Please reboot your computer before running\nImage Engineer.")
  132.